#!c:/usr/perl

use strict;
use warnings;
use encoding 'utf8';
use utf8;

#use Spider;
#
#my $content;
#my $spider;
#$spider = Spider->new();
#$spider->configure("http://www.google.pl");
#$content = $spider->doQuery("busy");
#$content = $spider->doQuery("ala ma kota");

#$spider->doWork();



use TestPatience;

my $patience = TestPatience->new("http://www.google.pl");
#my $patience = TestPatience->new("http://www.bing.com");
$patience->runTest();

print "\n\nKoniec";